home *** CD-ROM | disk | FTP | other *** search
/ Softwarová Záchrana 3 / Softwarova-zachrana-3.bin / Xteq X-Setup / xqdcXSP-Setup-EN.exe / {app} / plugins / XQ WinXP Find Files Options 1.xpl < prev    next >
Text File  |  2004-01-30  |  2KB  |  82 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 6.0"
  2. "TYPE"="6"
  3. "COUNT"="5"
  4. "UIPATH 1"="Appearance\System\Find Files Dialog"
  5. "UIPATH 2"="Appearance\Start menu\Windows XP\Classic Start Menu"
  6. "UIPATH 3"="Appearance\Start menu\Windows XP\New Start Menu"
  7. "NAME"="Find Files Dialog Options"
  8. "VERSION"="1.02"
  9. "LANGUAGE"="VBScript"
  10. "OSVERSION"="0000011"
  11. "TEXT 1"="Activate "Search hidden files" option"
  12. "TEXT 2"="Activate "Search system folders" option"
  13. "TEXT 3"="Activate "Search inside subfolders" option"
  14. "TEXT 4"="Activate "Search backup sets" option"
  15. "TEXT 5"="Activate "Search is case sensitive" option"
  16. "DESCRIPTION 1"="To change these advanced options inside the Find -> Files menu, you need to go through a lot of dialogs."
  17. "DESCRIPTION 2"="This plug-in allows you to change the options directly."
  18. "AUTHOR"="Xteq Systems"
  19. "CONTACTURL"="http://www.xteq.com"
  20. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  21. "COMMENT 1"=" "
  22.  
  23.  
  24. 'Declaration of some constants
  25. sP="HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\"
  26. sV1=sP & "SearchHidden"
  27. sV2=sP & "SearchSystemDirs"
  28. sV3=sP & "IncludeSubFolders"
  29. sV4=sP & "SearchSlowFiles"
  30. sV5=sP & "CaseSensitive"
  31.  
  32.  
  33.  
  34. 'Called when the Plugin is started
  35. SUB Plugin_Initialize 
  36.  i=RegReadValue(sV1) 'DW
  37.  If i=1 then SetUIElement 1,true
  38.  
  39.  i=RegReadValue(sV2) 'DW
  40.  If i=1 then SetUIElement 2,true
  41.  
  42.  i=RegReadValue(sV3) 'DW
  43.  If i=1 then SetUIElement 3,true
  44.  
  45.  i=RegReadValue(sV4) 'DW
  46.  If i=1 then SetUIElement 4,true
  47.  
  48.  i=RegReadValue(sV5) 'DW
  49.  If i=1 then SetUIElement 5,true
  50. END SUB
  51.  
  52. 'Called when the Plugin should validate the Data the user has entered
  53. SUB Plugin_CheckData(ElementIndex)
  54. END SUB
  55.  
  56. 'Called when the Plugin should apply the changes
  57. SUB Plugin_Apply(ElementIndex,ElementSubIndex) 
  58.  Call WriteIt(1,sV1)
  59.  Call WriteIt(2,sV2)
  60.  Call WriteIt(3,sV3)
  61.  Call WriteIt(4,sV4)
  62.  Call WriteIt(5,sV5)
  63.  
  64.  Call Logoff
  65. END SUB
  66.  
  67. Sub WriteIt(ITM,PATH)
  68.   b=GetUIElement(ITM)
  69.   if b=true then
  70.     Call RegWriteValue(PATH,1,2)
  71.   else
  72.     Call RegWriteValue(PATH,0,2)
  73.   end if
  74. End Sub
  75.  
  76.  
  77.  
  78.  
  79. 'Called when the Plugin is about to be removed from memory
  80. SUB Plugin_Terminate
  81. END SUB
  82.